home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00008_GetUploadAnecdotes.ls < prev    next >
Encoding:
Text File  |  2002-04-15  |  807 b   |  20 lines
  1. global DBPath
  2.  
  3. on exitFrame me
  4.   db = DGOpenDatabase(DBPath & "FlyBox.mdb", 0, 0, ";PWD=StopLooking")
  5.   rs = DGCreateRecordset("SELECT Anecdote.*, FlyName FROM Anecdote INNER JOIN Fly ON Anecdote.FlyID = Fly.FlyID WHERE UserAnecdote = true and Uploaded = false", db)
  6.   a = 0
  7.   repeat while not DGRSisEOF(rs)
  8.     setVariable(sprite(1), "UAnecdote" & a, DGRSGetFieldValue("Anecdote", rs))
  9.     setVariable(sprite(1), "UFlyID" & a, DGRSGetFieldValue("FlyID", rs) & EMPTY)
  10.     setVariable(sprite(1), "UFly" & a, DGRSGetFieldValue("FlyName", rs))
  11.     setVariable(sprite(1), "UAnecdoteID" & a, DGRSGetFieldValue("AnecdoteID", rs) & EMPTY)
  12.     DGRSmoveNext(rs)
  13.     a = a + 1
  14.   end repeat
  15.   DGRSClose(rs)
  16.   setVariable(sprite(1), "uRecords", a & EMPTY)
  17.   setVariable(sprite(1), "Finished", "T")
  18.   go("Finished")
  19. end
  20.